

use LWP::UserAgent;
use spice;

use utf8;
my $head = "*" x 21;

my $target = prompt("target", "normal");


my $ua = LWP::UserAgent -> new;
$ua
-> agent("Mozilla/5.0 (Windows NT 6.2; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0");


my $tehsecks
= $ua
-> get( $target )
-> decoded_content;

my @suck = split /"/, $tehsecks;

my $cunt = 0;

until($cunt > $#suck){
	$suck[$cunt] = "";
	$cunt = 2 + $cunt;
}


for (@suck){
	$_ =~ s/(\n|\r)//g;
	my $slut=$_;
	utf8::encode($slut);
	$slut =~ s/(\n|\r)//g;
	next if length $slut < 2;
	print $slut,"\n" ;
}
undef $slut;

print "\n\t$head single qoutes $head\n\n";


my @suck = split /'/, $tehsecks;

my $cunt = 0;

until($cunt > $#suck){
	$suck[$cunt] = "";
	$cunt = 2 + $cunt;
}


for (@suck){
	$_ =~ s/(\n|\r)//g;
	my $slut=$_;
	utf8::encode($slut);
	$slut =~ s/(\n|\r)//g;
	next if length $slut < 2;
	print $slut,"\n" ;
}